home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 4 #1
/
Commodore_Disk_User_Vol.4_1_1990_-.d64
/
mem scan
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
60 lines
10 a=a+1:if a=1 then load"spr.",8,1
15 u=0
20 px=81
30 py=24
50 poke 53280,0:poke 53281,15
90 scr=1184
100 mem=0
109 print""
110 print"[147]"
120 print"[158] [146]"
130 print"[145] [146][144]f1-forward f3-backward f5-find f7-quit[158] [146]"
140 print"[145] [146]"
150 print""
160 poke scr,nnmp:poke scr+1,42
170 if scr>2023 then goto 500
175 if mem<0 then mem=0
178 if mem>65280 then mem=65280
180 scr=scr+1:mem=mem+1
190 nnmp=peek(mem)
195 print"";mem;" "
200 goto 160
500 rem choice
510 get a$:if a$="[133]"then goto 2000
520 if a$="[134]"then goto 2100
530 if a$="[135]"then goto 1000
540 if a$="[136]"then poke 53269,0:print"[147]":end
550 goto 500
1000 poke 53269,1:poke 53248,80:poke 53249,80:poke 53276,1
1010 poke 53287,12
1020 poke 53285,11
1030 poke 53286,1
1040 poke 53275,0
1050 poke 2040,160
1060 a=255-peek(56320)
1070 if a and 1 then px=px-8:u=u-40
1080 if a and 2 then px=px+8:u=u+40
1090 if a and 4 then py=py-8:u=u-1
1100 if a and 8 then py=py+8:u=u+1
1110 if a and 16 then goto 160
1115 if py>255 then poke 53264,1:py=0:ba=1
1116 if ba=1 then gosub 1200
1120 poke 53248,py
1130 poke 53249,px
1135 print"";u;"[157][157][157][157][157] "
1150 goto 1060
1200 rem
1220 if py<0 then py=248:poke 53264,0:ba=0
1230 return
2000 rem forward
2010 scr=1184
2020 if mem>65280 then mem=63280:goto 160
2030 u=u+840
2040 goto 160
2100 rem backward
2110 scr=1184
2115 mem=mem-1680
2120 if mem<0 then mem=0:goto 160
2130 u=u-840
2140 goto 160